home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar / 1998 / Dec / di9812me / PluginSample / 2 / plugin2 / main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-03-27  |  835 b   |  46 lines
  1. unit main;
  2.  
  3. interface
  4.  
  5. uses Dialogs, Menus;
  6.  
  7. type
  8.     THolder = class
  9.     public
  10.         procedure ClickHandler(Sender: TObject);
  11.     end;
  12.  
  13.     procedure DescribePlugin(var Desc: string); export; stdcall;
  14.     procedure InitPlugin(ParentMenu: TMainMenu); export; stdcall;
  15.  
  16. var
  17.     Holder: THolder;
  18.  
  19. implementation
  20.  
  21. procedure DescribePlugin(var Desc: string);
  22. begin
  23.     Desc := 'Test plugin 2 - Menu test';
  24. end;
  25.  
  26. procedure InitPlugin(ParentMenu: TMainMenu);
  27. var i: TMenuItem;
  28. begin
  29.     // Create new menu item
  30.     i := NewItem('Plugin &Test',scNone, false, true, Holder.ClickHandler, 0, 'mnuTest');
  31.     ParentMenu.Items[1].Add(i);
  32. end;
  33.  
  34. procedure THolder.ClickHandler;
  35. begin
  36.     Showmessage('Clicked!');
  37. end;
  38.  
  39. initialization
  40.     Holder := THolder.Create;
  41.  
  42. finalization
  43.     Holder.Free;
  44.  
  45. end.
  46.